home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / library / rqtlsusr.lha / ReqTools / RexxReqTools / Examples / FontReq.rexx < prev    next >
OS/2 REXX Batch file  |  1993-07-07  |  667b  |  21 lines
  1. /* FontReq.rexx
  2.  * Demonstrates the fontrequester
  3.  *
  4.  * NOTE: `,' is a continuation character for statements that must be entered
  5.  *       on several source lines!!
  6.  */
  7.  
  8. call addlib("rexxreqtools.library", 0, -30, 0)
  9.  
  10. call rtfontrequest('Pick font',,'rtfo_flags = freqf_style',font)
  11. if font then
  12.   do
  13.     text = 'You picked' font.name 'size' font.height
  14.     if font.bold then text = text || '0A'x || 'You selected bold'
  15.     if font.italic then text = text || '0A'x || 'You selected italic'
  16.     if font.underlined then text = text || '0A'x || 'You selected underlined'
  17.     call rtezrequest(text,'Right')
  18.   end
  19. else
  20.   call rtezrequest('You picked no font',"I'm sorry")
  21.